['framework/base.pl'].
['framework/printmessages.pl'].

current_prolog_flag(argv,L),nth1(2,L,FILE), [FILE].
current_prolog_flag(argv,L),nth1(3,L,FILE), [FILE].

findall(A,knows(A,_),LA),list_to_set(LA,STA),
forall(
  member(A,STA),
  (stringrepr(SA,A),print(SA),print(':\n'),
   forall(knows(A,M),(print('$'),string_message(SM,M),print(SM),print('$\n'))),
   print('\n')
  )
).

